new
gen zone brick size 1 1 10 
sel shell id=1 elemtype=dkt_cst range x=(-0.1,0.1)
dele
sel shell prop iso=(210e9,0.3) thick=0.1
sel node fix x y z xr yr zr range x=(-0.1,0.1) z=(-0.1,0.1)
sel shell apply pres -1.0
sel set damp combined
solve
sel rec surf surfx 1 0 1
pl sel rec sres mx surfsys off axes

;-------ǵԪӳ(ڵԪ)-------
sel rec surf surfx 1 0 1
pl sel rec sres mx

def sres_outp
jj=0
loop cid(1,20)
  sp=s_find(cid)
  if s_type(sp)=4 then
    jj=jj+1
    xx = s_pos(sp,1)
    yy = s_pos(sp,2)
    zz = s_pos(sp,3)
    smxx=sst_sres(sp,0,1)
    smyy=sst_sres(sp,0,2)
    smxy=sst_sres(sp,0,3)
    snxx=sst_sres(sp,0,4)
    snyy=sst_sres(sp,0,5)
    snxy=sst_sres(sp,0,6)
    sqxx=sst_sres(sp,0,7)
    sqyy=sst_sres(sp,0,8)
    xtable(9,jj)=zz
    ytable(9,jj)=smxx
  endif 
endloop
end

sres_outp

set logfile mxx.txt
set log on 
set pagelength 10000
pri table 9
quit
